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TS 1000 SCROLLIST 

by Gregory C. Harder 

SCROLLIST is a short machine code program which will 
make a useful addition to your utilities package. 
This routine produces a continuous listing of your 
BASIC program, which scrolls at a selectable speed. 
Since the scrolled listing is almost identical to 
the normal listing, it is very useful for program 
debugging, perusing a long program, or locating 
specific lines and commands within the BASIC 
program. I say "almost identical" because SCROLLIST 
will even display lines containing double CHR$ 11۳ < 
that "hide" machine-code REMs. This means you can 
scan such machine-code REMs, to get an idea where 
the code is, where the data is, and how long it is. 


The routine requires two parameters to be passed to 
it; these are the starting line number, and the 
scroll speed. In order to facilitate this, the 
calculator stack is used to temporarily hold the 
parameters. This requires that the routine be called 
in the following manner: 


LET SLIST=LINE + (SPEED + USR CALL) 


Where: 


dato ai ——— 1 i a‏ نمی 
CINE = thë line number at which Yū start scr‏ 


SPEED = scrolling speed in the range of 1 to 255, 
with 1 being the fastest. 


CALL the USR address. 


This method of passing parameters via the calculator 
stacK is termed "inverted syntax," and is described 
in detail by D. Woods in his book "Machine Language 
Programming on the Timex/Sinclair 1500 and 1000". 


The routine can be used as a direct call, or from 
within the BASIC program. When the routine is called 
it will display a listing of the BASIC program 
starting at the specified line number, at the 
selected scroll! speed. To PAUSE the scrolling action 
press the M key. To CONTINUE press the C Key. 
Pressing the A key will STOP the program and produce 
a normal LISTing of the BASIC program, starting at 
the last line number printed. The program will stop 
automatically, with report E, when the end of the 
BASIC program is reached. 


Beete es apid, 


Së سس‎ 


Lowy "Scesuiisr" to get TSzoyo Vishny of ۵۲ 


ENTERING THE PROGRAM 


To maximize the usefulness of SCROLLIST it should be 
located within the BK to ióK area or above RAMTOP. 
If vou put it above RAMTOP, be sure to lower RAMTOP 
before uploading, unless you modified your machine 
to run m/o above 32K. 


Listing 1 is a combined hex loader and relocator, 
which contains the code for SCROLLIST. Enter listing 
1, then run the program and follow the instructions. 
Be sure to make a note of the USR call for later 
reference. This will always be 33 bytes greater than 
your selected base address. 


Note that the last character in lines 40, 70, 100, 
and 130 is a graphic space. 


Listing 2 is an annotated assembly listing of the 
routine. You may notice that it uses numerous ROM 
calls to do most of the dirty work and Keep it short 
(only 221 bytes). The ROM SCROLL routine is not 
used, because SCROLLIST needs a 24-line scroll. 


Be-sunre to put the.computer. into.SLüiW mode.befope. ———— «e سس‎ 


using SCROLLIST, or else you will not see the 
display. 


d HEKCODE NAME MNEMONIC B | 
vi Load ۱5۲۲ 
2000 Zaūcšū SCRL LD HL,£4DFIL? 


2003 54 LD D,H 
2004 SP LD E,L 
2005 012100 LD BC,0021 
2008 09 ADD HL,BC 
2009? DiF?7D2 LD BC,02F? 
200C EDBŪ LDIR 
200E 241040 LD HL, (VARS? 
281i 0620 LD B,20 
2013 2B DEC HL 
2614 2B CLER DEC HL 
2015 71 LD سكاف رد‎ 
2016 10FC DJNZ CLER 
2018 FD4é3C LD B,CSPEE) 
z015 BB DLAY DEC BC 
20i1C 78 LD A,B 
“bio Bi OR C 
201E 20FB JR NZ DLAY 
z020 C9 RET 
2021 CDCD15 SLST CALL FPZA 
2024 323040 LD (SPEE},A 
2027 LDSAIS CALL FPBC 
202A 40 LD H,B 
202B 4? LD L,C 
202C AF KOR A 
202D 322240 LD 4DFSZ25,A 
2030 CDDSO0T CALL LNMAD 
2033 E5 MORE PUSH HL 

pud du E Ee nea Efry م‎ a ceppe m LEE مس نس‎ 
2037 CDF308 CALL PRAT 
203A Ei POP HL 
203B ES PUSH HL 
203C CDBEDS CALL LNUM 
203F EDS30A40 LD (EPPC? ,DE 
2043 Ei POP HL 
2044 CDDASDDĀ CALL PRLN 
2047 23 INC HL 
2048 4E LD C,¢HL? 
2049 23 INC HL 
2044 46 LD B,£HL2 
2046 OB NEXT DEC EC 
2040 23 iNC HL 
2046 DF KEY? EXX 
204E CDEBOZ CALL KBSC 
203i 44 LD B,H 
2052 4D LD C,L 
2053 2C INC L 
2054 Capbor CALL NZ DCOD 
2057 7E LD وه‎ (HL? 
2058 DY EXX 
2057 FESË KEYM CP 32 
2058 2004 JR NZ KEYC 
2050 FDCBOi1EZ SET 4,¢FLGS> 
2061 FE28 KEYC CP 28 
2063 2815 JR 2 CONT 
2045 FEZë KEYA CP 26 
2067 2006 JR NZ BIT4 
20679 CDZADA CALL CLS- 
2060 2608540 LD HL,¢EPPC> 


206F CDSB07 CALL LIST 


e 


1858 
FDCB0146 
20D3 
FDCBDIAS 


ZE 
CDB407 


CDABO? 


; Ci 


288E 


DD 
FDCBO014E 
ES 
C40020 
CDO020 
Ei 
C33320 


JR ER-E 
BIT4 BIT 4, (FLES) 
JR NZ KEY? 
CONT RES 4, (FLGS) 
LD A,B 
OR C 
JR 2 END? 
RES 5,(FLGS) 
SCR? LD A,CROU-) 
CP 01 
JR NZ NUM? 
EXX 
CALL SCRL 
LD B,CCOL-) 
LD 4,21 
SUB B 
LD فرع‎ 
LD 6 
CALL PRAT 
EXX 
NUM? LD ره‎ CHL) 


JR NEXT 
TKN? BIT 6,4 

JR Z PR-A 

LD E,(ROW=) 

PUSH BC 

CALL TOKN 

POP EC 

LD A, (ROW=) 

CP E 

JR Z NEXT 

SET 5,(FLGS) 

JR NEXT 
PR-A RST 10H 

JR NEXT 
END? INC HL 

LD A, CHL 

CP 76 

JR NZ AGIN 
ER-E RST 08H 

ERROR E 
AGIN BIT 5,(FLGS) 

PUSH HL 

CALL NZ SCRL 

CALL SCRL 

POP HL 

JP MORE 


SUP SCROLL Locate D FILE. 
;Set destination address. 


jSet source address. 


Get counter. 
Transfer. 

¿Locate VARS. 

jSet counter. 
;Decrease pointer. 
Clear last row. 


;Get scroll speed. 
;Scroll speed delay. 


jReturn, done scrolling. 
;>START< Get the scroll speed. 
iStore speed. 

;Get starting line number. 
jTransfer line number to HL. 


¿Clear reg. A. 

;Set DE 52 for full display 
;Locate start addr. of line. 
jStack address pointer. 
;Reg. BL=FRINT AT co-ords. 
jset print position. — — 
pStack again. 

;Reg. DE-current line no. 
jSet EPPC to line number. 
jRestore address pointer. 
;Frint current line number. 
;Reg. BC- length of line. 


;Decrease the counter. 
jincrease address pointer. 
jSave main registers. 
Scan the Keyboard. 

poet reg. BC for decode. 


jlest for no Key-press. 

If Key-press, then decode. 
j5et A to character code. 
;Restore main registers. 
;Last Key = M? 

jNo, test for Key C. 

;Yes, set PAUSE flag. 

;Last Kew = C? 

See, then continue. 

;No, last key = A? 

;No, then test PAUSE flag. 
jYes, clear screen. 

;Set EPPC to last line value. 
;LIST starting at last line. 


DUET 


File “gjistanot ju LAF Tells le 


E 1o ctia clinic MN 


anii 


;Precautionary stop by ER-E. 
jTest PAUSE flag. 

;lf set, loop back to KEY?. 
;Reset PAUSE flag. 

Line counter-zenro? 


iYes, test for end of prog. 
;No, reset overflow flag. 
Check S_POSN row value. 
;Row = i? 

;No, test for a number code. 
Yes, save main registers. 
;Scroll the line. 

;Set next column position. 


;5et next PRINT AT position. 
;Restore main registers. 
gû = current character cade. 
sis it a floating-point no.? 
;No, test for token code. 
Yes, decrease counter by 5. 


next character.‏ هناچ 

LR characier.a Loken?2. ue 
;No, then print the character. 
jYes, get current row value. 
jSave counter. 

;Expand and print the token. 
jRestore the counter. 

;Compare old and new row values. 


jIf zero, do next character. 

If not zero, set overflow flag. 
;Do next character. 

;Print character via RST 10h 

jDo next character. 

jIncrease address pointer. 
;Fetch the character. 

;End of BASIC program? 

;No, then continue. 

jyes, then stop with report E. 


3 

jTest the overflow flag. 

;Saue address pointer. 

If overflow, do an extra scroll. 
;Scroll last line. 

;Restore address pointer. 

;Do next program line. 
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